Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/4-Fonts & Software/Demo Software/AppMaker/Demo AppMaker™/Demo AppMaker™.rsrc/TmpP_204_MainMenu.txt

Text File | 1989-04-09 | 3.8 KB | 218 lines

# (decoded with TMPL 11972)
{ %filename% }
{ Created %date% %time% by AppMaker }

Unit %unitname%;
Interface

Uses
%If MPW%
    {$Load ToolBox.dump}
        MemTypes,
        QuickDraw,
        OSIntf,
        ToolIntf,
        PackIntf,
    {$Load}

%end if%
%If Think%
{$ifc undefined Think_Pascal}
    ListManager,
{$endc}
%end if%
    %UsesFiles%
    Globals,
    ResourceDefs;

{----------}
Procedure InitTitles;
Procedure LoadMenus;
Procedure DoMenu (menuChoice:    longint);
Procedure UpdateMenus;

{----------}
Implementation

%If MPW%
{$D+}
{$R+}
{$OV+}

%end if%
%If MPW%
{$S %unitname%}

%end if%
{----------}
Procedure InitTitles;
Begin
    %InitTitles%
End; {InitTitles}

{----------}
Procedure LoadMenus;
Begin
    %GetMenus%

    %InsertMenus%

    DrawMenuBar;
End; {LoadMenus}

{----------}
Procedure DoAbout;
var
    itemNr:            integer;
Begin
    itemNr := Alert (AboutID, nil);
End; {DoAbout}

{----------}
Procedure DoApple (itemNr:    integer);
var
    name:            Str255;
    refNum:            integer;
Begin
    case itemNr of
        AppleAbout:
                DoAbout;
        otherwise begin
                GetItem (AppleMenu, itemNr, name);
                refNum := OpenDeskAcc (name);
            end;
    end; {case}
End; {DoApple}

{----------}
Procedure DoMenu {(menuChoice:    longint)};
var
    menuID:            integer;
    itemNr:            integer;
Begin
    menuID := HiWord (menuChoice);
    itemNr := LoWord (menuChoice);

    case menuID of
        0:
                {Do nothing};
        %HandleMenus%
    end; {case}

    HiliteMenu (0);
End; {DoMenu}

{----------}
Procedure UpdateMenus;
var
    frontPeek:        WindowPeek;
    isFront:        boolean;    {is there a front window?}
    isCur:            boolean;    {is there a current window?}
    isDirty:        boolean;    {is it dirty?}
    hasFile:        boolean;    {does it have a file?}
    isSelected:        boolean;    {is anything selected?}
    isDesk:            boolean;    {is the front window a desk acc?}
    isText:            boolean;    {is there a current text field?}
    isScrap:        boolean;    {is there any scrap?}
    menu:            MenuHandle;
    menuBarChanged:    boolean;

    {----------}
    Procedure Enable (itemNr:    integer;
                      enabled:    boolean);
    Begin
        if enabled then begin
            EnableItem  (menu, itemNr);
        end else begin
            DisableItem (menu, itemNr);
        end;
    End; {Enable}

    {----------}
    Procedure EnableTitle (menu:    MenuHandle;
                             enabled:    boolean);
    Begin
        if enabled <> odd (menu^^.enableFlags) then begin
            menuBarChanged := true;
        end;
        if enabled then begin
            EnableItem  (menu, 0);
        end else begin
            DisableItem (menu, 0);
        end;
    End; {EnableTitle}

Begin {UpdateMenus}

    menuBarChanged := false;

    isFront        := (FrontWindow <> nil);
    isCur        := (curWindow <> nil);
    isDirty     := false;
    hasFile     := false;
    isSelected    := false;
    if isCur then begin
        isDirty        :=  cur^.dirty;
        HasFile        := (cur^.fileNum <> 0);
    end;

    isDesk := false;
    if isFront then begin
        frontPeek    := WindowPeek (FrontWindow);
        isDesk        := (frontPeek^.windowKind < 0);
    end;
    isText        := false;
    if isCur then begin
        isText        := (cur^.text <> nil);
    end;
    isScrap        := false;
    if isText then begin
        isSelected    := (cur^.text^^.selStart <> cur^.text^^.selEnd);
        isScrap        := (TEGetScrapLen > 0);
    end;

    menu := FileMenu;
%if defined FileClose%
    Enable (FileClose,        isFront);
%end if%
%if defined FileSave%
    Enable (FileSave,        isDirty);
%end if%
%if defined FileSaveAs%
    Enable (FileSaveAs,        isDirty);
%end if%
%if defined FileRevert%
    Enable (FileRevert,        isDirty and hasFile);
%end if%

    menu := EditMenu;
    if isFront then begin
%if defined EditUndo%
        Enable (EditUndo,        isDesk);
%end if%
%if defined EditCut%
        Enable (EditCut,        isDesk or isSelected);
%end if%
%if defined EditCopy%
        Enable (EditCopy,        isDesk or isSelected);
%end if%
%if defined EditPaste%
        Enable (EditPaste,        isDesk or isScrap);
%end if%
%if defined EditClear%
        Enable (EditClear,        isDesk or isSelected);
%end if%
%if defined EditSelectAll%
        Enable (EditSelectAll,    isText);
%end if%
    end;

    EnableTitle (EditMenu,     isFront);

    if menuBarChanged then begin
        DrawMenuBar;
    end;
End; {UpdateMenus}

End. {%unitname%}